colList <- list(
  colTa = colorRampPalette(c("darkblue", "aquamarine", 
                             "gold", "darkred"),	interpolate = "linear"),
  colRH = colorRampPalette(c("tan4", "sandybrown", "white", "lightsteelblue", 
                             "royalblue4"), interpolate = "linear"),
  colPrec = colorRampPalette(c("white", "darkblue", "aquamarine", "gold", "red", 
                               "purple", "black"), interpolate = "linear"),
  colRad = colorRampPalette(c("white", "black"), interpolate = "linear"),
  colWV = colorRampPalette(c("white", "lightblue", "cornflowerblue", "red2"), 
                           interpolate = "linear"))
          